home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO15B.dsk / UTIL.3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  35 lines
  1. 0  REM UTIL.3
  2. 1  FOR I = 0 TO 7: &  TANI,PH$(I): NEXT 
  3. 2  &  SPEED= 255,255,255
  4. 3 Z$ = "Select Hardware": &   OR ,Z$
  5. 7  HOME : VTAB 6
  6. 10  &  PRINT "            Select Hardware"
  7. 11  &  PRINT "---------------------------------------",,
  8. 20  &  PRINT "1) Screen Lower Case = ";
  9. 21  IF  PEEK(801) = 0  THEN  &  PRINT "On": GOTO 30
  10. 22  &  PRINT "Off"
  11. 30  &  PRINT "2) Reserved for future use."
  12. 40  &  PRINT "3) Reserved for future use."
  13. 50  &  PRINT "4) Reserved for future use."
  14. 60  &  PRINT 
  15. 73  &  PRINT ,"S)ave changes  L)oad Parms    Q)uit"
  16. 75  VTAB 17: &  PRINT : CALL  -958
  17. 80  &  PRINT  SPC( 10);"Command? (Q=quit) ";
  18. 90  &  GET Z$: &  SGNZ$: &  INT"1234SLQ",Z$,Z: IF Z = 0  THEN  &  PRINT  CHR$(7);: GOTO 90
  19. 100  PRINT Z$: ON Z GOTO 200,300,400,500,800,900,1000
  20. 200  IF  PEEK(801) = 0  THEN  POKE 801,255: GOTO 7
  21. 210  IF  PEEK(801) < >0  THEN  POKE 801,0: GOTO 7
  22. 220  POKE 806, VAL(Z$): GOTO 7
  23. 800 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BSAVE PAGE.3,A$300,L225":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  24. 900 P =  PEEK(839): &  GOSUB 2000: PRINT  CHR$(4);"BLOAD PAGE.3":P =  PEEK(837): &  GOSUB 2000: GOTO 7
  25. 1000 P =  PEEK(837): &  GOSUB 2000: PRINT  CHR$(4);"RUN SYS.UTIL"
  26. 2000  HOME : &  AT P,A: IF A = 0  THEN  &  RETURN 
  27. 2010  VTAB 10: &  PRINT 
  28. 2020  &  PRINT  SPC( 11);"Disk is not on-line."
  29. 2030 L =  LEN(PH$(P)):L = 40 -L:L = L/2: &  PRINT , SPC( L);PH$(P)
  30. 2040  &  PRINT , SPC( 10);"Please install it...";: &  GET Z$: GOTO 2000
  31. 6000  &  PRINT  RIGHT$("   " + STR$(Z),3);"  ";
  32. 6005  IF Z <32  THEN Z = Z +64: INVERSE 
  33. 6010  &  PRINT  CHR$(Z);: NORMAL : &  PRINT : RETURN 
  34. 7000  &  STR$2,"090": &  INPUT Z$:Z =  VAL(Z$): IF Z$ = ""  THEN  GOTO 7
  35. 7010  &  RETURN